home *** CD-ROM | disk | FTP | other *** search
/ Deutsche Edition 1 / Deutsche Edition 1.iso / amok / amok_lha / amok33.lha / FInOut / TestFInOut.mod < prev    next >
Text File  |  1993-08-15  |  4KB  |  133 lines
  1. (*****************************************************************
  2.    :Program.    TestFInOut.mod
  3.    :Contents.   TestModul für FInOut
  4.    :Author.     Michael Frieß
  5.    :Address.    Mühlhaldenweg 16 / 7035 Waldenbuch
  6.    :Phone.      (0)7157 / 9614
  7.    :Shortcut.   [mif]
  8.    :Version.    1.0
  9.    :Date.       26.11.89
  10.    :Copyright.  PD
  11.    :Language.   Modula-II
  12.    :Translator. M2Amiga
  13.    :Imports.ErrorReq [Bne]
  14. *****************************************************************)
  15.  
  16. MODULE TestFInOut;
  17.  
  18. FROM FInOut IMPORT file, FOpen, FClose, FRead, FReadString, FSkip,
  19.                    FReadLongInt, FReadLongCard, FReadCard, FReadInt,
  20.                    FWrite, FWriteString, FWriteLn,
  21.                    FWriteLongInt, FWriteLongCard, FWriteCard, FWriteInt,
  22.                    Eof, error;
  23. FROM InOut IMPORT Write, WriteString, WriteInt, WriteCard,
  24.                   WriteLn;
  25. FROM ASCII IMPORT eof;
  26. FROM ErrorReq IMPORT Assert;
  27. FROM SYSTEM IMPORT ADR;
  28.  
  29. CONST TestFile = "T:TestFInOut.Dat";
  30.  
  31. VAR f: file;
  32.    Ch: CHAR;
  33.    i, j : INTEGER;
  34.    Str  : ARRAY [1..200] OF CHAR;
  35.  
  36. BEGIN
  37.   WriteString( "Test of FWritexxx"); WriteLn;
  38.   Assert(
  39.          ERRxNone = FOpen (f, TestFile, "n"),
  40.          ADR("Couldn´t open file"));
  41.   Write("A"); FWrite( f, "A");
  42.   Write(" "); FWrite( f, " ");
  43.   WriteString( "Ein String "); FWriteString( f, "Ein String ");
  44.   WriteLn; FWriteLn(f);
  45.   WriteCard( 2, 5); FWriteCard(f, 2, 5);
  46.   WriteInt(  -1, 5); FWriteInt (f, -1, 5);
  47.   WriteString(" LongInt"); FWriteLongInt( f, -10, 5);
  48.   WriteString(" LongCard"); FWriteLongCard( f, 5, 5);
  49.   WriteLn; FWriteLn(f);
  50.   WriteCard( 40000, 10); FWriteCard(f, 40000, 10);
  51.   WriteInt(  -1, 10); FWriteInt (f, -1, 10);
  52.   WriteString(" LongInt"); FWriteLongInt( f, -12, 10);
  53.   WriteString(" LongCard"); FWriteLongCard( f, 15, 10);
  54.   WriteLn; FWriteLn(f);
  55.   Assert( FClose( f), ADR("Couldn´t close file"));
  56.  
  57.   WriteString( "Test of FRead"); WriteLn;
  58.   Assert(
  59.          ERRxNone = FOpen (f, TestFile, "r"),
  60.          ADR("Couldn´t open file"));
  61.   LOOP
  62.     Ch := FRead (f);
  63.     IF Ch = eof THEN EXIT END;
  64.  
  65.   END;
  66.   Assert( FClose( f), ADR("Couldn´t close file"));
  67.   WriteLn;
  68.  
  69.   WriteString( "Test of FSkip and FReadString"); WriteLn;
  70.   Assert(
  71.          ERRxNone = FOpen (f, TestFile, "r"),
  72.          ADR("Couldn´t open file"));
  73.   REPEAT
  74.     i := INTEGER(FSkip(f));
  75.     IF i > 0 THEN
  76.       FOR j := 1 TO i DO Write (" ") END
  77.     END;
  78.  
  79.     REPEAT
  80.       i := INTEGER (FReadString(f, Str));
  81.       WriteString (Str);
  82.     UNTIL i >= 0;
  83.   UNTIL i = 0;
  84.   Assert( FClose( f), ADR("Couldn´t close file"));
  85.   WriteLn;
  86.  
  87.   WriteString( "Test of FReadInt");
  88.   WriteLn;
  89.   Assert(
  90.          ERRxNone = FOpen (f, TestFile, "r"),
  91.          ADR("Couldn´t open file"));
  92.   Assert (f # NIL, ADR("Couldn´t open file"));
  93.   WHILE NOT Eof(f) DO
  94.     WriteInt (FReadInt (f),5);
  95.   END;
  96.   Assert( FClose( f), ADR("Couldn´t close file"));
  97.   WriteLn;
  98.  
  99.   WriteString( "Test of FReadCard");
  100.   WriteLn;
  101.   Assert(
  102.          ERRxNone = FOpen (f, TestFile, "r"),
  103.          ADR("Couldn´t open file"));
  104.   WHILE NOT Eof(f) DO
  105.     WriteInt (FReadCard (f),5);
  106.   END;
  107.   Assert( FClose( f), ADR("Couldn´t close file"));
  108.   WriteLn;
  109.  
  110.   WriteString( "Test of FReadLongInt");
  111.   WriteLn;
  112.   Assert(
  113.          ERRxNone = FOpen (f, TestFile, "r"),
  114.          ADR("Couldn´t open file"));
  115.   WHILE NOT Eof(f) DO
  116.     WriteInt (FReadLongInt (f),10);
  117.   END;
  118.   Assert( FClose( f), ADR("Couldn´t close file"));
  119.   WriteLn;
  120.  
  121.  
  122.   WriteString( "Test of FReadLongCard");
  123.   WriteLn;
  124.   Assert(
  125.          ERRxNone = FOpen (f, TestFile, "r"),
  126.          ADR("Couldn´t open file"));
  127.   WHILE NOT Eof(f) DO
  128.     WriteInt (LONGINT(FReadLongCard (f)),10);
  129.   END;
  130.   Assert( FClose( f), ADR("Couldn´t close file"));
  131.   WriteLn;
  132. END TestFInOut.
  133.